home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT Clear TEMP folder.xpl < prev    next >
Text File  |  2001-09-01  |  3KB  |  103 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="4"
  4. "UIPATH 1"="System\File System\Folders\Temporary"
  5. "NAME"="Clear Windows NT/2K/XP TEMP Folder"
  6. "VERSION"="1.58"
  7. "OSVERSION"="0101011"
  8. "WARNING"="1"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Clear TEMP Folder"
  11. "TEXT 2"="Clear TEMP Folder (Security Wipe!)"
  12. "TEXT 3"="Clear TMP Folder"
  13. "TEXT 4"="Clear TMP Folder (Security Wipe!)"
  14. "DESCRIPTION 1"="This plug-in will totally erase any files in your TEMP/TMP folder."
  15. "DESCRIPTION 2"="If you apply the second option, every file found (except any subfolders, or a file named index.dat) will be filled with garbage before deleting so even an undelete does not show what was inside the files."
  16. "DESCRIPTION 3"="These options will not work if you have your TEMP folder set in the registry using a variable, such as %USERPROFILE%\Local Settings\Temp [the %userprofile% is the variable.  Anything between two percent signs (example: %anything% ) is a variable].
  17. "DESCRIPTION 4"="To enable these options to work, you must manually specify a TEMP folder.  There is a plug-in included with X-Setup which will allow you to set a folder path for the TEMP location."
  18. "AUTHOR"="Xteq Systems (CptSiskoX)"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"=" "
  22. "COMMENT 2"=" "
  23.  
  24. sP="HKEY_CURRENT_USER\Environment\Temp"
  25. sP2="HKEY_CURRENT_USER\Environment\TMP"
  26.  
  27. Sub Plugin_Initialize 
  28. End Sub
  29.  
  30. Sub Plugin_CheckData(ElementIndex)
  31. End Sub
  32.  
  33. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  Select Case ElementIndex
  35.    Case 1:
  36.         Call DoWork(false,sP)  
  37.    Case 2:
  38.         Call DoWork(true,sP)
  39.    Case 3:
  40.         Call DoWork(false,sP2)  
  41.    Case 4:
  42.         Call DoWork(true,sP2)
  43.  End Select
  44. End Sub
  45.  
  46. Sub DoWork(EraseTotally,RegPath)
  47.     sBasePath=RegReadValue(RegPath)
  48.  
  49.     if folderexists(sBasePath) then
  50.        'okay, now look for any remaing files...
  51.        Call KillDir(sBasePath,EraseTotally,false)
  52.                    
  53.        'done!
  54.        msginformation "TEMP and/or TMP Folder contents eliminated!"
  55.     else
  56.        msgerror "Unable to locate folder - nothing done!"
  57.     end if
  58. end Sub
  59.  
  60.  
  61. Sub KillDir(DirName,EraseTotally,KillDirAlso)
  62.  
  63.  iC=FileEnum(DirName & "\*.*")
  64.  
  65.  for i=1 to iC 
  66.      sFile=FileEnumElement(i)
  67.      'index.dat can not be erased, always locked for writing... grr..
  68.      if right(sFile,9)<>"index.dat" then
  69.    
  70.         if EraseTotally then
  71.            lC=TxtOpen(sFile)
  72.  
  73.            'replace contents of file    
  74.            for l=1 to lC 
  75.                Call TxtSetLine(l,"-")
  76.            next
  77.          
  78.            'desktop.ini is special case..
  79.            if right(sFile,11)="desktop.ini" then
  80.               Call FileSetAttribute(sFile,"R-")
  81.               Call FileSetAttribute(sFile,"H-")
  82.               Call FileSetAttribute(sFile,"S-")
  83.            end if
  84.  
  85.           Call TxtSave()
  86.         end if
  87.  
  88.         'now kill the file
  89.         FileDelete(sFile)
  90.      end if               
  91.  
  92.  next 
  93.  
  94.  if KillDirAlso=true then
  95.     FolderDelete(DirName)
  96.  end if
  97. End Sub
  98.  
  99.  
  100. Sub Plugin_Terminate 
  101. End Sub
  102.  
  103.